home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAFSE15.ZIP / EDITOR.PPS < prev    next >
Text File  |  1995-04-09  |  2KB  |  68 lines
  1. ;------------------------------------------------------------------------------
  2. ; EDITOR 1.5 - ì\íEMESIS [PWA]
  3. ;
  4. ;  Keep in mind this was written for pplc 2.0, before they had subroutines,
  5. ;  so its kind of sloppy. I will rewrite it with subroutines later.. but it
  6. ;  works so why bother for now?
  7. ;
  8. ; Call NWO at 803.855.8085 and apply if you want to see more of what I have
  9. ; done. Send email via PPEnet in PPE-GENERAL or Internet me: erich@clemson.edu
  10. ;------------------------------------------------------------------------------
  11.  
  12.  
  13. BIGSTR ELINE,TCOLOR,SCOLOR,LINETXT,TXTCOLOR,NLCOLOR,NCOLOR
  14. STRING ORIGINAL,CONFIGF
  15. INTEGER I,TOPOS,SUBJPOS
  16.  
  17. CONFIGF=PPEPATH()+"CONFIG.DAT"
  18. FOPEN 1,CONFIGF,O_RW,S_DN
  19. FGET 1,TCOLOR
  20. FGET 1,SCOLOR
  21. FGET 1,TXTCOLOR
  22. FGET 1,LINETXT
  23. FGET 1,ELINE
  24. FGET 1,NCOLOR
  25. FGET 1,NLCOLOR
  26. ORIGINAL=SCRTEXT(1,1,80,0)
  27. TOPOS=0
  28.  
  29. :FINDTO
  30.  IF (!(UPPER(MID(ORIGINAL,TOPOS,1))<>"T")) GOTO SETSUBJ
  31.  TOPOS=TOPOS+1
  32. GOTO FINDTO
  33.  
  34. :SETSUBJ
  35.  SUBJPOS=TOPOS
  36.  
  37. :FINDSUBJ
  38.  IF (!(UPPER(MID(ORIGINAL,SUBJPOS,5))<>"SUBJ:")) GOTO REPLACELINE
  39.  SUBJPOS=SUBJPOS+1
  40. GOTO FINDSUBJ
  41.  
  42. :REPLACELINE
  43.  PRINT ELINE
  44.  PRINT "@QOFF@@POFF@H"
  45.  PRINT TXTCOLOR+ORIGINAL
  46.  ANSIPOS TOPOS,1
  47.  PRINT TCOLOR+"To:"
  48.  ANSIPOS SUBJPOS,1
  49.  PRINTLN SCOLOR+"Subj:"
  50.  PRINT LINETXT
  51.  ORIGINAL=SCRTEXT(4,3,1,0)
  52.  IF (!(ORIGINAL=":")) GOTO DONE
  53.  ORIGINAL=SCRTEXT(4,4,1,0)
  54.  IF (!(ORIGINAL=":")) GOTO DONE
  55.  I=3
  56.  
  57. :REPLACENUM
  58.  IF (!(SCRTEXT(4,(I),1,0)=":")) GOTO DONE
  59.  ANSIPOS 1,I
  60.  ORIGINAL=SCRTEXT(1,I,5,0)
  61.  PRINT NCOLOR+LEFT(ORIGINAL,3)
  62.  PRINT NLCOLOR+"│"
  63.  I=I+1
  64. GOTO REPLACENUM
  65.  
  66. :DONE
  67.  FCLOSE 1
  68.